Option Explicit
Sub E_Sample023()
   'ո E_Data01u@g
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myRng3 As Range
    Dim myAr   As Variant
    Dim i      As Long
    myAr = Array(1, 4, 3, 2, 7)				'wgP
    With Worksheets
        Set myRng1 = _
        .Item("E_Data01").Range("A1").CurrentRegion	'ӷd
        Set myRng2 = .Item("E_Data01").Range("J1:K2")	'ƽd
        Set myRng3 = .Add(After:=.Item(.Count)) _
        .Range("A1").Resize(, UBound(myAr) + 1)		'wgؼ
    End With
    For i = 1 To 5
        myRng3.Cells(i).Value = myRng1.Rows(1).Cells(myAr(i - 1)).Value
    Next
    'NJxsd
    myRng2.Cells(1, 1) = myRng1.Cells(1, 3)		'Wrw
    myRng2.Cells(1, 2) = myRng1.Cells(1, 6)		'z
    myRng2.Cells(2, 1) = "s*"				'w
    myRng2.Cells(2, 2) = ">50"
    myRng1.AdvancedFilter _
    Action:=xlFilterCopy, _
    CriteriaRange:=myRng2, _
    CopyToRange:=myRng3
    With myRng1.Parent
        If .FilterMode Then
            .ShowAllData
        End If
    End With
    myRng2.Clear							'R
    Set myRng1 = Nothing						'
    Set myRng2 = Nothing
    Set myRng3 = Nothing
End Sub
